home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk113 / arexx / gdname.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  394b  |  15 lines
  1. /* gdname.rexx....Gets name of disk  */
  2. /*                arg = vol          */
  3.  
  4. gdname:
  5. arg vol
  6.  
  7. call setclip('DNAME',"")
  8.                 /* GET INFO FOR THAT FLOPPY DRIVE */
  9. ""'info 'vol' | execio from 4 for 1 var diskinfo'
  10. if compare(word(diskinfo,8),'Only') == 0 then diskname = subword(diskinfo,9,)
  11. else diskname = subword(diskinfo,8,)
  12. call setclip('DNAME','"' || diskname || '"')
  13. return
  14.  
  15.